ISSUE NO. 5 



2 For Your Information 

3 Coming Soon . . . 

AIM 65/40 

4 Data Files for AIM 65 
BASIC 

6 More BASIC Data Files 
9 A Move/Relocate Program 


13 TTY Output Utility 

14 Data Statement Generator 
16 Cassette Load Utility 

19 Interrupt Driven Keyboard 

21 A Basic Hint 

22 Letters to the Editor 
24 Easy RS232C 


AIM 65140 . . . 


THE NEXT GENERATION! 



Rockwell International 


where science gets down to business 





Page 2 

EDITOR’S CORNER 

I want to thank all you supporters who have been sending in articles, 
comments, suggestions etc. It’s nice to know that INTERACTIVE has 
so many fans out there. We have a pretty good mix of articles in this 
issue with maybe a bias towards data files. But, that’s what you seem to 
be interested in. 

Keep in mind that this publication is a dynamic entity. You are the force 
behind it. Whatever you collectively say GOES. If you wish to influence 
the direction we’re taking, then write an article about the subject you’d 
like to see. It’s as simple as that! 

I would like to see more articles on how to interface the AIM 65 to dif¬ 
ferent devices such as A/D, D/A, counter chips, DVM chips, speech 
synthesizers, graphic output, etc. etc. etc. . . . 

How about it? 

I have received some good stuff in the area of CAD (Computer Aided 
Design). Not enough for a complete issue, though, so I’ll start running 
them in issue #6 (or #7). 

We’re getting ready to do another update on the AIM 65 User’s Guide. 

If you have found any errors or think we could explain something better, 
let us know. Send all comments to the attention of THE DOCUMEN¬ 
TATION MANAGER, Rockwell Inti., POB 3669, RC55, Anaheim, CA 
92803. 

Two interesting articles appeared recently in EDN magazine. The Jan¬ 
uary 7, 1981 issue carried two articles which featured AIM 65. One of 
them showed how a mechanical engineer could simulate a physical model 
on a BASIC language equipped AIM 65. The other article gave complete 
details (hardware and software) so an AIM 65 (or other 6502/6522 sys¬ 
tem) could control the intensity or speed of ac operated devices such as 
lamps or motors through an interrupt driven zero crossing detector. 

If you don’t have access to this magazine, we can send you reprints of 
the articles. Just ask for EDN #1 if you want the ac power interface or 
EDN #2 for the digital simulation article. Send requests to the attention a 
of SALES SUPPORT SERVICES, Rockwell Inti., POB 3669, RC55, j 
Anaheim, CA 92803. 

All subscription correspondence and articles should be sent to: 

EDITOR, INTERACTIVE 
ROCKWELL INTERNATIONAL 
POB 3669, RC 55 
ANAHEIM, CA 92803 

COPYRIGHT 1981 ROCKWELL INTERNATIONAL CORPORATION 

Rockwell does not assume any liability arising out of the application or use of any 
products, circuit, or software described herein, neither does it convey any license 
under its patent rights nor the patent rights of others. Rockwell further reserves 
the right to make changes in any products herein without notice. 
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A version of the PASCAL programming language is now “in the works’’ 
for AIM 65. At this point, all the information I can give you is that it will 
consist of a five ROM set and be a subset of Standard Pascal which was 
defined in a book called “Pascal User Manual and Report’’ by Jensen 
and Wirth. No, there’s no data sheet as of yet'so please don’t call or write 
until we say that more information is available. This is not a product an¬ 
nouncement . . .just some advance information that is intended to give 
a hint about where Rockwell is heading. More on Pascal later. 

Eric C. Rehnke 
Newsletter Editor 

FOR YOUR INFORMATION 

From the Editor: 

Here are some books that may help you along on the road to mastering 
microcomputers. 

BASIC FOR HOME COMPUTERS by Albrecht, Finke, and Brown. 
Published by John Wiley & Sons (605 Third Ave., New York, NY 
10016). 

PROGRAMMING AND INTERFACING THE 6502 by Marvin De 
Jong. Published by Howard W. Sams & Co. (4300 W. 62nd St., In¬ 
dianapolis, Ind 46268). 

THE FOLLOWING BOOKS ARE AVAILABLE FROM ROCKWELL 
INTERNATIONAL AT SPECIAL PRICES: ^ 

6502 SOFTWARE DESIGN by Leo J. Scanlon. Published by Howard 
W. Sams & Co. 6502 Assembly language tutorial and hardware inter¬ 
facing examples. $7.00 (U.S. & Canada) $9.00 (overseas) 

MICROCOMPUTER SYSTEMS ENGINEERING by Camp, Smay, and 
Triska. Published by Matrix Publishers (30 NW 23rd Place, Portland, 
ORE 97210) General intro to microcomputing, 6502, 6800, and 8080 
Assembly language programming, and some system design principles. 
$17.00 for U.S. and Canada and $19.00 overseas. 

AIM 65 LABORATORY MANUAL AND STUDY GUIDE by Leo J. 
Scanlon. Published by John Wiley & Sons. Provides 17 programming 
and I/O experiments for the AIM 65. $5.00 (U.S. & Canada) or $7.00 
(overseas) 

ORDERING INSTRUCTIONS for books available from Rockwell: Or¬ 
ders must be accompanied by payment. U.S. and Canadian orders 
must be by check or money order and overseas payment must be drawn 
on U.S. bank. California residents add 6% state tax. Send orders to 
the attention of SALES SUPPORT SERVICES, Rockwell Inti, POB 
3669, RC55, Anaheim, CA 92803. 

CORRECTION TO THE AIM 65 
USER’S GUIDE 

There seems to be a problem with the program on pages 8-37 and 8-38 
of the AIM 65 User’s Guide (Rev 3, December 1979). Insert the se- 1 ^^ 
quence HERE JMP HERE between ;CONTINUE and the dotted line 


(Continued on page 22) 
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COMING SOON . . . 
AIM 65/40 


Rockwell International will shortly be introducing the AIM 65/40. The 
AIM 65/40 microcomputer is made up of an R6502 based single board 
computer with on-board expansion to 65 kilobytes of memory, a full 
graphic 280 x N dot matrix or 40-column alphanumeric printer, a 40- 
character alphanumeric display, and a full ASCII keyboard with user as¬ 
signable function keys. 

An advanced generation of Rockwell’s popular AIM 65 microcomputer, 
the AIM 65/40 will be available as a complete system or as individual 
computer and intelligent peripheral modules. 

The AIM 65/40 Series 1000 single board computer modules feature 
system address expansion up to 128K bytes with on-board memory up 
to 48 kilobytes of RAM and up to 32 kilobytes of ROM or EPROM. 
Six level priority interrupt logic and six 16-bit multi-mode timers are 
included for flexibility in production automation and laboratory control 
applications. Extensive I/O capability provides an RS-232C asyn¬ 
chronous communications interface channel with programmable data 
rates of up to 19,200 baud for terminals or modems, plus a 20 ma current 
loop TTY interface, dual audio cassette interfaces, and two user-defin¬ 
able 8-bit parallel ports with handshake control two 16-bit timer/counters 
and an 8-bit serial shift register. 

Three additional 8-bit parallel ports are directly programmable as dic¬ 
tated by the user’s application to provide more TTL level I/O or inter¬ 
face to keyboards, displays, and printer modules. Manufacturer supplied 
ROM resident software included with the AIM 65/40 Series 1000 com¬ 
puter provide I/O drivers for the intelligent peripherals and more. The 
printer connector is compatible with the Centronics parallel interface that 
is so popular with high speed dot matrix printers. 

A buffered system bus accommodates off-board expansion via Rock¬ 
well's RM 65 microcomputer modules which include intelligent periph¬ 
eral controllers for mini or standard floppy disks, CRT monitors and the 
IEEE^t88 instrumentation bus, plus additional communications inter¬ 
faces and a selection of RAM, ROM and PROM memory expansion 
options up to 128K bytes of memory and memory-mapped I/O capacity. 

The AIM 65/40 Model 0600 graphics printer module consists of an in¬ 
telligent microprocessor controller integrated with the printer mecha¬ 
nism. This module operates in two modes. Character mode operation 


prints upper and lower case ASCII characters, mathematical symbols, 
and semi-graphics character font formatted as 40-characters/line at 240 
lines/minute. Full graphics mode outputs any data pattern desired as a 
280xN dot matrix. With its own microprocessor controller, user chang- 
able character generator ROM, thermal head drivers, motor control, and 
parallel handshake ASCII interface, this freestanding peripheral mini¬ 
mizes demand on the AIM 65/40 central processor, permitting maximum 
system performance. 

The Model 0400 display module features a bright, crisp vacuum flou- 
rescent 40-character alphanumeric display. This stand-alone module has 
its own microprocessor controller for display of alphanumeric, special, 
and limited graphics characters, parallel handshake ASCII interface, sup¬ 
port circuitry and operates from a single +5 volt power supply. Special 
control commands permit variable display timing, cursor control, auto¬ 
scroll, and character blinking. 

The Model 0200 keyboard module provides a terminal style alpha¬ 
numeric and special character keyboard matrix with 64 keys, including 
locking ALL CAPS, control, and eight user definable function keys. 
Three keys labelled ATTN, RESET, and PAPER FEED have dedicated 
lines to the interface connector. 

The AIM 65/40 Series 5000 incorporates a ROM resident software sys¬ 
tem and integrates all four modules into a complete microcomputer sys¬ 
tem. The interactive monitor software controls the AIM 65/40 system 
with single keystroke, self-prompting commands, supports software de¬ 
velopment with assembler, debug and control commands. A multi-file 
text editor supports both line and screen editing functions. Optional lan¬ 
guages include a fully symbolic R6500 assembler and BASIC. FORTH, 
PASCAL, and PL/65 software packages are in development. 

The AIM 65/40 is expected to be available sometime during the third 
quarter of 1981. 

For price and delivery information contact your local Rockwell sales 
office. -©- 
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DATA HLES FOR 
AIM-65 BASIC 

Jerry K. Radke 

U.S. Dept, of Agriculture 

The storage and retrieval of data on a permanent (or semipermanent) 
medium is often necessary. Unfortunately, Rockwell AIM-65 BASIC 
does not provide data file capability for its cassette recorder interface. 
Even worse, Microsoft does not provide a listing of the BASIC it wrote 
for the AIM-65 so the user can easily modify it. However, the procedure 
presented here will provide the user of the AIM-65 with a cassette data 
file capability that is relatively painless though not very elegant. 

I use two short BASIC subroutines to open files (one each for read and 
write) and one to write an end-of-file. These statements start at 9000. I 
usually reserve certain blocks of data statement numbers for certain sub¬ 
routines which can be saved and loaded individually, e.g. 4000’s are re¬ 
served for my real-time clock and timing subroutines, 5000’s are my 
sorting subroutines, 6000's are for my formatted printing subroutines, 
etc. This allows me to build programs using these standard subroutines 
as modules. 

In addition to the three subroutines, seme BASIC statements are needed 
in the main program to control the tape recorders) and to select the active 
output device (AOD) and active input device (AID). The remote control 
lines to the tape recorders should be functional. The minimum procedure 
to write on tape is to call the subroutine at 9000 to open a file, set the 
AOD to “tape”, print (via BASIC “PRINT” statements) to tape, re¬ 
turning AOD to “display”, and finally end-filing the tape by calling the 
subroutine at 9100. This causes the 80 byte tape buffer to fill and dump 
to tape in blocks while automatically turning the tape recorder on and 
off. Reading tapes is performed by calling the subroutine at 9200 to open 
the file, setting the AID tape, “INPUTting” the data, and returning the 
AID to the “keyboard”. 

To make the data files compatible with text files that are written and read 
by EDITOR, a few additional things should be done. The first five char¬ 
acters “PRINTed” to the tape buffer should be the filename. (The first 
position in the buffer was set to indicate block zero by statement 9010 
thus the filename takes up characters 2 through 6). The 7th character 
must not be a CR (SOD) or it will not be accepted by EDITOR as a text 
file. EDITOR also wants to see two consecutive CR's at the end of the 
file to indicate EOF. The EOF subroutine does this as well as filling the 
rest of the block with “nulls”. However, the user is free to set up his 80 
byte blocks to suit his own needs, e.g. a special character to indicate 
EOF. Obviously, to read data from tapes, a proper INPUT format is nec¬ 
essary to match the way the data is stored. The filename will also need 
to be INPUT from block 0. 

The program on page 5 gives an example that we can follow. Statements 
20 through 50 load array P$. Statement 60 inputs a title for the data (not 
the filename). Statements 90-120 sets up tape recorder 1 or 2 for output 
and turns the tape controls off. (User should respond with a 1 or 2 to 


statement 90). At statement 120, place tape recorder in “record” mode 
and answer query. Input “filename” at 140. Statements 150-230 ac¬ 
tually do the writing to tape. Note that 170 prints the filename, a comma, 
and the number of data lines (N). Commas are necessary if more than 
one data element are to be read per line. Statement 240 turns the tape 
recorders on to allow the user to reposition the tapes if necessary. The 
tape read example is similar. Statements 560-630 input the data, 640- 
690 prints the data, and 700 turns the tape controls back on. The user 
can place the recorder in the “play” mode after the prompt “?” is dis¬ 
played for statement 580. Of course, the tape should be properly placed 
in a gap just before the start of the desired file. 

Statements should be kept to a minimum while the AOD or AID is set to 
“tape”. If data is going to be written or read several different times in 
the program, return AOD or AID to “keyboard/display” after each 
PRINT or INPUT loop or routine. In other words, only have the AOD or 
AID set to “tape” when absolutely necessary. I have not tried all com¬ 
binations possible, but do know that data can be easily written or cor¬ 
rected by the EDITOR and read as data by BASIC. I would be interested 
in hearing about any “discoveries” you make. If you have questions, I 
can be reached at 612/589-3411 during normal working hours. 

This procedure offers quite a bit of flexibility, and I have left it this way 
even though a neater package could be written using WHEREIN and 
WHEREOUT and putting almost everything in the subroutines. One 
thing to remember with this routine is that the tape must be positioned so 
that block zero will be the first block read. This can be changed if de¬ 
sired, however. Also, a search procedure could be used to locate block 
zero of a given file. 

MINIMUM STATEMENTS TO WRITE ON CASSETTE TAPE 


* USER PROGRAM 

* 

GOSUB 9010 OPEN FILE WRITE 

POKE 42003,84 ACTIVE OUTPUT DEVICE SET TO 
“TAPE” 

* 

* USER PRINT STATEMENTS TO 

TAPE 

* 

POKE 42003,13 ACTIVE OUTPUT DEVICE 

RETURNED TO “DISPLAY” 
GOSUB 9110 WRITE EOF ON TAPE 

END 


MINIMUM STATEMENTS TO READ FROM TAPE 

* 

* USER PROGRAM 

* 


GOSUB 9210 


OPEN FILE (READ) 
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POKE 42002,84 ACTIVE INPUT DEVICE SET TO 
“TAPE” 

* 

* USER INPUT STATEMENTS TO 

READ FROM TAPE 

* 

POKE 42002,13 ACTIVE INPUT DEVICE RETURNED 

TO “KEYBOARD” 

* 

* USER PROGRAM 

* 

END 


TAPE SUBROUTINES 


9000 

REM: OPEN 

FILE (WRITE) 


9010 

POKE 278,0 

$0116 TO 0 (SET 1ST CHAR IN BUFF 
FOR BLK 0) 

9020 

POKE 42039,1 

SET OUTPUT TAPE POINTER 
($A437) TO “1” 

9030 

POKE 360,0 

BLOCK COUNT ($0168) TO ZERO 

9040 

POKE 41993,22 

SET TAPE GAP 
($A409) TO $16 

9050 

RETURN 


9100 

REM: WRITE- 

EOF 


9110 

POKE 42003,84 

SET OUTFLG TO “T” 

9115 

PRINT CHR$(13) 

OUTPUT OD,OD,QA 

9120 

NL = 80-PEEK 

CHECK POINTER FOR BUFFER 


(42039) 

SPACE 

9130 

FOR NC=1 TO NL 

FILL BUFFER WITH NULLS 

9140 

PRINT CHR$(0); 


9150 

NEXT NC 


9160 

POKE 42003,13 

SET OUTFLG TO “D” 

9170 

RETURN 


9200 

REM: OPEN 

FILE (READ) 


9210 

POKE 277,0 

SET BLOCK ($0115) TO ZERO 

9220 

POKE 42038,80 

SET COUNTER ($A436) TO END 
($50) 

9230 

RETURN 



EXAMPLE PROGRAM 
1 DIM P$(40) 

10 REM: TAPE WRITE EXAMPLE 
20 INPUT “# ENTRIES” ;N 
30 FOR 1 = 0 TO N — 1 

40 PRINT “ENTRY # ” ; I + 1; :INPUT P$(I) 
50 NEXT I 

60 INPUT “TITLE” ;H$ 


70 INPUT “STORE ON TAPE Y/N” ;A$ 

80 IF A$= “N” THEN STOP 
90 INPUT “T = ”; T:T = T-1 
100 POKE 42037, T:REM: SET TAPOUT 
110 POKE 43008,204:REM: TURN TAPES OFF 
120 INPUT ‘ TAPE READY Y/N ”;A$ 

130 IF A$= “N” THEN STOP 
140 INPUT “FILENAME” ;A$ 

150 GOSUB 9010:REM: OPEN FILE 
160 POKE 42003,84:REM: TAPE AOD 
170 PRINT A$ ; “’” ; N 
180 PRINT H$ 

190 FOR 1 = 0 TO N -1 
200 PRINT I + 1; “,” ;P$(I) 

210 NEXT I 

220 POKE 42003,13:REM: DISPLAY AOD 
230 GOSUB 9110:REM: WRITE EOF 
240 POKE 43008,252:REM: TURN TAPES ON 
250 END 

500 REM: TAPE READ EXAMPLE 
510 DIM R(40), R$(40) 

520 INPUT “READ TAPE Y/N”; A$ 

530 IF A$ = “N ” THEN STOP 
540 INPUT “T =”; T:T = T-1 
550 POKE 42036,T:REM: SET TAPIN 
560 GOSUB 9210:REM: OPEN FILE 
570 POKE 42002,84:REM: TAPE AID 
580 INPUT A$,N 
590 INPUT H$ 

600 FOR 1 = 0 TO N— 1 
610 INPUT R(I),R$(I) 

620 NEXT I 

630 POKE 42002,13 

640 PRINT 

650 PRINT! “ ”;PRINT!H$ 

660 FOR 1 = 0 TON-1 
670 PRINT! R(I); TAB(5);R$(I) 

680 NEXT I 
690 PRINT! 

700 POKE 43008,252 
710 END 

Some useful locations: 


Hex 

Decimal 

Label 

Remarks 

$0115 

277 

BLK 

Block count for input (must be 
zero to start) 

$0116 

278 

TABUFF 

80 byte tape buffer starts here 

$0168 

360 

BLKO 

Block count for output 
(set to zero) 

$A409 

41993 

GAP 

Block gap for tape recorder 

$A411 

42001 

PRIFLG 

Printer “ON" = 0, 

“OFF" = 128 (S80) 
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MORE BASIC DATA FILES 

Steve West and Frank Nunneley 
Johannesburg, South Africa 

(EDITOR'S NOTE: Yes , I know that you've already seen a data file han¬ 
dling program. But, this program is a bit different and it shows a neat 
way to add new commands to AIM 65 BASIC.) 

The ability to process and store data on cassette greatly enhances the use¬ 
fulness of BASIC programs. 

Any system of this type should be easy to use. The method described 
here extends the instruction set of BASIC to include instructions to open 
and close files and to input and output data. The new instructions are: 


PRINT#‘NAME’l Opens a cassette output file. The name of 

the file is in single quotes and is followed 
by the recorder number. (Default is T=l) 

PRINT#A,B$ Outputs data to the currently open output 

file. Format is identical to standard PRINT 
statement. 

PRINT## Closes current output file. 

INPUT#‘NAME’2 Opens an input file by finding the file 

“NAME”. The file name is again fol¬ 
lowed by the recorder number (Default to 
tape recorder 1) 

INPUT#A$,B$ Inputs data from currently open input file. 



INPUT## Closes Input file. 

Only one tape buffer is available while BASIC is in use, thus only one 
I/O file can be open at a time. 

To use BASEX, BASIC must be limited to 3883 bytes in response to 
the question “MEMORY SIZE?” when entering BASIC. Answer 
“WIDTH?” as before, then ESCape to monitor and Load BASEX from 
cassette. Reenter BASIC using 6 and the extension program is ready to 
work. This order is important as the divert routine on page zero must be 
modified after BASIC is initialized. 

The assembly listing follows. When entering this file in source it is rec¬ 
ommended that the editor be placed above $800; the assembler symbol 
table can be placed between 200 and 800. This way the Editor won’t be 
corrupted when the program is tested. After entering BASIC after assem¬ 
bling the file it will be necessary to modify the instructions on page zero 
using Mneumonic Entry. After the file is working and the initialization 
procedure from tape is used this is not required. 

<*>=C8 

<I> 

00C8 4C JMP 0F2D 
00CB EA NOP 
00CC 

< 

When the file is working dump it (object) to cassette, the link to the ex¬ 
tension must be included here. 

<D> 

FROM=F2D TO=FFF 
OUT=T F=BASEX T = 1 
MORE?Y 

FROM=C8 TO=CB 
MORE?N 
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?** TAPE DATA FILES 

0F63 

20 

AC 

EB 

EXIT 

JSR 

PLXY 

2000 




t STEVE WEST AUG '80 

OF" 6 6 

68 




PL A 







0F67 

38 




SEC 


2000 




PHXY =$EB9E 

OF" 6 8 

60 




RTS 


2000 




PLXY =$EBAC 

0F69 




INPUT 



2000 




CRLF «$E9F0 

0F69 

48 




PH A 


2000 




LL =$EBFE 

OF 6 A 

20 

9E 

EB 


JSR 

PHXY 

2000 




OUTFLG =$A413 

0F6D 

AO 

01 



LDY 

*1 

2000 




INFLG =$A412 

0F6F 

B1 

C6 



LDA 

(PNTR) 

2000 




OUTDIS =$EF05 

0F71 

C9 

23 



CMP 

*'# 

2000 




TOBYTE =*F18B 

OF 73 

DO 

D4 



BNE 

PR1 

2000 




DILINK =•'•' $ A 4 0 6 

OF 7 5 

A9 

54 



LDA 

*' T 

2000 




DUMPTA ==$E56F 

Op 7 7 

8D 

12 

A4 


STA 

INFL.G 

2000 




TAPOUT =$A435 

OF 7 A 

C8 




INY 


2000 




TAPIN ~$A434 

0F7B 

B1 

C6 



LDA 

(PNTR) 

2000 




DRB $ A 8 0 0 

0F7D 

C9 

27 



CMP 

#" ' 

2000 




DU11 =$E50A 

0F7F 

FO 

07 



BEG 

LOADFL 

2000 




NAME =$A42E 

OF 81 

C9 

23 



CMP 

#'# 

2000 




LOADTA =$E32F 

0F83 

FO 

2F 



BEG 

OFFTAP 

2000 




PNTR =$C6 

0F85 

4C 

5F 

OF 


JMP 

ST 1 

2000 




#=$F2D 

0F88 




LOADFL 



OF" 2D 





0F88 

20 

C7 

OF 


JSR 

RD NAME- 

0F2D 




BASEXT 

0F8B 

8C 

34 

A4 


STY 

TAP IN 

OF 2D 

C9 

97 


GMP #$97 

0F8E 

20 

2F 

E3 


JSR 

LOADTA 

0F2F 

FO 

OC 


BEG PRINT 

0F91 

4C 

63 

OF 


JMP 

EXIT 

OF 31 

C9 

84 


CMP #$84 

OF 9 4 




OPENFL 



OF 3 3 

FO 

34 


BEG INPUT 

0F94 

20 

C7 

OF 


JSR 

RDNAME 

OF 3 5 

C9 

3A 


CMP #$3A 

0F97 

8C 

35 

A4 


STY 

TAPOUT 

OF" 3 7 

BO 

03 


BCS NOTNLJM 

0F9A 

20 

6F 

E5 


JSR 

DUMPTA 

0F39 

4C 

CC 

00 

JMP $CC 

0F9D 

4C 

63 

OF 


JMP 

EXIT 

0F3C 

60 



NOTNUM RTS 

OF AO 

98 



UPPNTR 

TYA 







0FA1 

18 




CLC 


OF 3D 

48 



PRINT PHA 

0FA2 

65 

C6 



ADC 

PNTR 

0F3E 

20 

9E 

EB 

JSR PHXY 

0FA4 

85 

C6 



STA 

PNTR 

OF 41 

AO 

01 


L..DY *1 

0FA6 

90 

02 



BCC 

UP1 

OF" 4 3 

B1 

C6 


LDA (PNTR) y Y 

0FA8 

E6 

C7 



INC 

PNTR+1 

0F45 

C9 

23 


CMP #'# 

OFAA 

60 



UP1 

RTS 


OF 4 7 

FO 

06 


BEG STATAP 

OFAB 




CLOSE 



0F49 




PR1 

OFAB 

20 

FO 

E9 


JSR 

CRLF 

0F49 

20 

FE 

E8 

JSR LL 

OF At" 

20 

FO 

E:"9 


JSR 

CRLF 

0F4C 

4C 

63 

OF 

JMP EXIT 

0FB1 

20 

OA 

E5 


JSR 

DU 11 

0F4F 




STATAP 

0FB4 




OFFTAP 



0F4F 

A9 

54 


LDA #'T 

0FB4 

A9 

CF 



LDA 

*$CF 

OF 51 

8D 

13 

A4 

STA OUTFLG 

0FB6 

2D 

00 

A8 


AND 

DRB 

0F54 

C8 



INY 

0FB9 

8D 

00 

A 8 


STA 

DRB 

OF 5 5 

B1 

C6 


LDA (PNTR)* Y 

OFBC 

20 

FE 

E8 


JSR 

LL 

OF 57 

C9 

27 


CMP 

OFBF 

20 

AC 

EB 


JSR 

PLXY 

OF 5 9 

FO 

39 


BEG OPENFL 

0FC2 

68 




PL A 


0F5B 

C9 

23 


CMP *'* 

0FC3 

A9 

8E 



LDA 

*$8E 

0F5D 

FO 

4C 


BEG CLOSE¬ 

0FC5 

38 




SEC 


0F5F 




ST! 

0F-C6 

60 




RTS 


0F5F 

88 



DEY 

0FC7 




RDNAME 



OF" 60 

20 

AO 

OF 

JSR UPPNTR 

0FC7 

C8 




INY 
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0FC8 

20 

AO 

OF 


JSR 

UPPNTR 

OF CD 

AO 

00 



LDY 

#0 

OF" CD 

D1 

C6 


NEXT 

LDA 

(PNTR) f Y 

OFCF 

C9 

27 



CMP 

#' 7 ' 

0FD1 

FO 

OE 



DEG 

ENDNAM 

0FD3 

99 

2E 

A4 


STA 

NAME *Y 

0FD6 

C8 




INY 


0FD7 

CO 

05 



CPY 

*5 

0FD9 

DO 

F2 



DNE 

NEXT 

OFDD 

20 

AO 

OF 


JSR 

UPPNTR 

OFDE 

4C 

EE 

OF 


JMP 

RD1 

0FE1 

20 

AO 

OF 

ENDNAM 

JSR 

UPPNTR 

0FE4 

A9 

20 



LDA 

* 7 

0FE6 

99 

2E 

A4 

EN1 

STA 

NAME t Y 

0FE9 

C8 




INY 


OFEA 

CO 

05 



CPY 

#5 

OF EC 

DO 

F8 



DNE 

EN1 

OFEE 




RD1 



OF EE 

AO 

01 



LDY 

#1 

OFFO 

D1 

C6 



LDA 

(PNTR)yY 

OFF 2 

C9 

32 



CMP 

# 7 2 

0FF4 

FO 

AA 



DEG 

UPPNTR 

0FF6 

C9 

31 



CMP 

♦ 7 1 

OFFS 

DO 

03 



DNE 

RD2 

OFFA 

20 

AO 

OF 


JSR 

UPPNTR 

OFFD 

88 



RD2 

DEY 


OFFE 

60 




RTS 


OFFF 





*==$C8 

00C8 




DIVERT 



00C8 

4C 

2D 

OF 


JMP 

DASEXT 

OOCD 

EA 




NOP 


OOCC 





♦ END 


As a final note, the BASIC data files are EDITOR compatible so that 
data to be processed can be produced by using the EDITOR. 

AN EXAMPLE PROGRAM ILLUSTRATING THE USE OF 
THE NEW COMMANDS 

Notes: No tape number was specified when opening the files thus tape 
recorder 1 is used (default) 

At 600 is a subroutine to toggle the tapes to make rewind and fast 
forward possible. 

SOME COMMENTS ON THE EXAMPLE BASIC PROGRAM: 


Line Number 

Action 

45 

turn tape #1 ON 

55 

wait for key when operator is ready 

58 

turn both tapes OFF 


60 the output file is opened and called 

“NAMES” 

100 .LAST indicates that the last name 

has been entered 

140 end of output to TAPE routine 

200 start of input from TAPE routine 

220 looks for file with NAME= “NAMES” 

230 prints heading (1st string in file) 

260 inputs name from TAPE 

270 has last been read? 

280 echos to printer 

300 closes file 

600 TP=0 (both tapes OFF 

TP=1 (#1 ON, #2 OFF) 

TP=2 (#1 OFF, #2 ON) 

TP=3 (both tapes ON) 


10 PRINT!" EXAMPLE PROGRAM" 

30 PRINT!" " 

40 REM STORE NAMES ON CASSETTE 
45 TP=1JG0SUB600 
50 PRINT" TAPE TO RECORD" 

5 5 0 E T A * !IF A * == * " T H E N 5 5 

58 TP=0 ♦G0SUB600 

60 PRINT# 7 NAMES'"NAME LIST" 

70 FOR I=IT030 
80 INPUTA$ 

90 PRINT#A$ t REM # SO TO TAPE 
100 IF A$~"♦LAST“THEN120 
110 NEXT 

120 REM CLOSE FILE 
130 PRINT## 

140 END 

200 REM READ NAMES FROM TAPE 
210 PRINT"TAPE TO PLAY" 

220 INPUT# 7 NAMES 7 H# 

230 PRINT!TAD(5)?H$ 

240 PRINT!" • 

250 FOR I=17030 
260 INPUT#A* 

270 IFA*="* LAST“THEN300 
280 PRINT!A* 

290 NEXT 
300 INPUT## 

310 PRINT" DONE ! !" 

320 END 

590 REM TAPE ON/OFF 

600 P0KE43008 y 207ANDPEEK <43008)0R16*T 
610 RETURN ^ 
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INTERA CTIVE 


A MOVE/RELOCATE 
ROUTINE 

Anthony Chandler, 

Montreal, Canada 

SUMMARY 

This routine will, at the user’s option, either MOVE a block of data or 
RELOCATE a machine-language program from one area of memory into 
any other area of RAM from $0200 up. It can perform both forward and 
backward shifts, and resides entirely in Page Zero. 

INTRODUCTION 

Often the need arises to shift a block of data or a machine-language pro¬ 
gram from one set of locations in memory to another. 

If a block of data, such as a “look-up” table has to be shifted, then a 
simple MOVE routine which sequentially reads each byte of data in the 
SOURCE area and writes it into the DESTINATION area is sufficient. 
Examples of MOVE routines are given on pages 6-26 and 6-27 of the 
R6500 Programming Manual. 

However, if a machine-language program has to be shifted, then a simple 
MOVE routine may not be satisfactory. Those instructions in the pro¬ 
gram which use the absolute addressing mode (such as JMP 0345 or LDA 
0567) have operands in the form of an address. If the operand points to 
an address within the span of the program being re-located, then the in¬ 
struction must be modified so that its operand points to the correspond¬ 
ing address in the destination area. On the other hand, if the instruction 
refers to an address outside the span of the program, then it must be 
moved without alteration. 

In order to shift programs, a more complex routine which calculates the 
necessary address changes is required. 

In AIM 65, the memory area available for programs extends from ad¬ 
dress $0200 up to the limit of installed RAM ($1000 if 4K of memory is 
installed). Any MOVE/RELOCATE routine which occupies part of this 
area will naturally be restrictive, since the area it took up could not be 
used. A special effort has been made to enable the following routine to 
be located entirely in Page zero, which is not normally used for program 
instructions, so as to leave the entire working area from $0200 up free. 

DESCRIPTION 

Fig. 1 is a disassembly of the MOVE7RELOCATE routine. The pro¬ 
gram itself occupies addresses $0(X)0-$00DD. Addresses $00EB-$00FF 
are “borrowed” from the Text Editor “Find” command for temporary 
storage, pointers and prompt messages. Loading of the “RELOC” rou¬ 
tine will not disturb any operations of the Text Editor except the 
“Find” command and only then if an attempt is made to find a character 
string longer than 12 characters. The Text buffer addresses, stored in 
$00DF-$00E9 are preserved. 


EXECUTION—RELOCATE 

The program starts at $0000 and can be run using the * =0000 command 
or by setting up a linkage to $0000 via one of the Function keys. The 
following example illustrates the entries necessary to re-locate a pro¬ 
gram presently residing at addresses $0456 to $0567 to a destination 
starting at address $0234. In this example, the address of the last in¬ 
struction is $0567—the last byte of the program might be at $0569, if 
the program terminated with a 3 byte instruction. 

PROGRAM PROMPTS 

S = START ADDRESS 
F = FINISH ADDRESS 
D = DESTINATION ADDRESS 
MR = MOVE/RELOCATE 

* =0000 
G/ 

S = Enter 0456 (NOTE—NO ERRORS 

PERMITTED. IF 
INCORRECT DIGIT 
THEN RE-START 
PROGRAM) 

S=0456F= Enter 0567 

S = 0456F = 0567D= Enter 0234 

(Display wraps around) 

0456F = 0567D = 0234MR= Enter “R” (for re-locate) 

(any other key except “M” will 
do) 

The routine will run, displaying a disassembly of the source program as 
the re-location takes place. 

On completion, control returns to the Monitor. The next free available 
address following the re-located program ($0348 in the above example) 
will be found by examining memory locations 00F5-00F6 (LSB first— 
4803) 

EXECUTION—MOVE 

If the source addresses, $0456 to $0567 contain data (or text) then a sim¬ 
ilar procedure is followed. 

In this case, however, the Source Finish address entered in response to 
the prompt “F= ” should be one address less than that of the last byte of 
data (for example, 0566 instead of 0567). 

After entering the addresses, the response to the move/relocate prompt 
“MR= ” should be “M” for move. 

The Destination Finish address to be found at $00F5-00F6 will be the 
address of the last byte of data moved (for example $0345). The next free 
address is $0346. 
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TirmiasireE 


If the MOVE routine is used to shift the contents of the Editor’s Text 
Buffer, then the Source Start address should be that shown (Low order 
byte first) at $00E3-00E4. The Source Finish address should be one less 
than the text end address shown at $00E1/E2. On completion of the 
MOVE operation, it will be necessary to reset the Text Buffer addresses 


PROGRAM LISTING AND COMMENTS 


The following temporary stores and pointers are used: 


as follows: 


SOURCE START (S) 

$00EB 

00E1 

Text end address—same as 00F5 


00EC 

00E2 

00F6 

CURRENT SOURCE ADDRESS 

00ED 

00E3 

Text start address—same as Destination 


00EE 

00E4 

Start 



00E5 

Text buffer end address—this can be any 

SOURCE FINISH (F) 

00EF 

00 F0 

00E6 

address higher than that in 00E1-00E2 



depending on the amount of free space 
required. 

OPERAND ADDRESS (from instruction 
being read) 

00F1 

00F2 

During execution of the MOVE option, no messages are displayed and 
return to the Monitor is very rapid. 

DESTINATION START (D) 

00F3 

00F4 

OVERLAPPING 




The routine permits backward overlapping—for programs, the DESTI¬ 
NATION START address must be at least three addresses lower than the 

CURRENT DESTINATION ADDRESS 

00F5 

00F6 

SOURCE START. 

For a data MOVE, there is no restriction. 




(LO) 

(HI) 


Forward overlapping is not possible, but a program or data block can be 
temporarily re-located or moved to a high or low memory area and then 
shifted back to overlay its original source area. 

SELF-REPRODUCTION 

Incidentally, the program will successfully re-locate itself and so, if the 
terminating instruction were replaced with instructions calculating a new 
destination, it could become self-perpetuating until its progeny filled 
available RAM. 

STORING ON CASSETTE TAPE 

When dumping the routine for storage on to cassette tape, the addresses 
to dump are FROM = 0000 TO = 00DD 
MORE? Y 

FROM= 00F7 TO= 00FF 

This procedure avoids recording on tape the Editor’s Text start and finish 
addresses from $00E1 to $00E6. This means that, when “RELOC” is 
loaded from tape at some future time, it will not affect any Text Editor 
which is set up. 


Prompt messages are stored (in ASCII) as follows: 


M = 

00F7 

/ 53 

3D 46 

3D 

S = F = 


00 FB 

/ 44 

3D 4D 

52 

D = M R 


00FF 

/ 3D 

* * 

* 

= (* = unchanged) 

0000 

A2 

LDX 

#00 


INITIALIZE. X INDEXES 

MESSAGE BYTES 

0002 

A0 

LDY 

#00 


Y INDEXES PROGRAM 

BYTES EACH INSTRUCTION 

0004 

20 

JSR 

00D2 


DISPLAY PROMPT MESSAGE 

ASKING FOR ADDRESS 

0007 

20 

JSR 

0090 


GET 4-DIGIT ADDRESS AND 

STORE IT 

000A 

E0 

CPX 

#0C 


SEE IF 12 DIGITS (ALL 

THREE ADDRESSES) 

oooc 

DO 

BNE 

0004 


IF NOT-BACK FOR NEXT 

ADDRESS 

000E 

20 

JSR 

00D2 


DISPLAY FINAL PROMPT 


(“MR= ”) 


IVfl IIACIIVI 
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0011 

20 

JSR 

E973 

REDOUT—SEE IF USER 

WANTS MOVE OR 

RELOCATE 

0014 

C9 

CMP 

#4D 

IF HE SAYS “M” THEN— 

0016 

F0 

BEQ 

007E 

GO TO MOVE ROUTINE FOR 

STRAIGHT COPY 

0018 

A5 

LDA 

ED 

OTHERWISE, GET CURRENT 

001A 

8D 

STA 

A425 

SOURCE ADDRESS FROM ED/ 

001D 

A5 

LDA 

EE 

EE AND PUT IT IN SAVPC AT 

A425/A426 

001F 

8D 

STA 

A426 


0022 

20 

JSR 

F46C 

DISASM—INTERPRET 

INSTRUCTION & DISPLAY IT 

0025 

A5 

LDA 

EA 

LENGTH—ACCUMULATOR 

HAS LENGTH MINUS ONE 

0027 

C9 

CMP 

#02 

IS IT A 3-BYTE 

INSTRUCTION? 

0029 

DO 

BNE 

006E 

NO—SO GO MAKE 

STRAIGHT COPY 

002 B 

AO 

LDY 

#01 

YES—IS A 3-BYTE SO MAY 

HAVE TO ALTER 

002 D 

B1 

LDA 

(ED),Y 

GET FIRST BYT OF OPERAND 

002 F 

85 

STA 

FI 


0031 

C8 

INY 



0032 

B1 

LDA 

(ED),Y 

SECOND BYT OF OPERAND 

0034 

85 

STA 

F2 

OPERAND INTO FI /F2 

0036 

38 

SEC 


SUBTRACT SOURCE START 

0037 

A5 

LDA 

FI 

ADDRESS FROM OPERAND 

0039 

E5 

SBC 

EB 

TO SEE IF OPERAND POINTS 

TO ADDRESS BELOW 

SOURCE START 

003 B 

A5 

LDA 

F2 


003 D 

E5 

SBC 

EC 


003 F 

90 

BCC 

006E 

IF SO—CARRY CLEAR AND 
NO CHANGE REQUIRED 

0041 

A5 

LDA 

EF 

SUBTRACT OPERAND FROM 

0043 

E5 

SBC 

FI 

SOURCE FINISH ADDRESS 

0045 

A5 

LDA 

FO 

TO SEE IF OPERAND POINTS 

TO ADDRESS ABOVE 

SOURCE FINISH 

0047 

E5 

SBC 

F2 


0049 

90 

BCC 

006E 

IF SO—CARRY CLEAR AND 

004 B 

18 

CLC 


NO CHANGE REQUIRED. 

004C 

A5 

LDA 

FI 

OPERAND REQUIRES 
CHANGING SO PREPARE TO 

ADD. ADD OPERAND TO 

DESTINATION START 

ADDRESS 

004E 

65 

ADC 

F3 


0050 

48 

PHA 


TEMPORARILY STORE LO- 


BYT SUM ON STACK 


0051 

A5 

LDA 

F2 


0053 

65 

ADC 

F4 


0055 

AA 

TAX 


TEMPORARILY STORE HI- 

BYT SUM IN X 

0056 

38 

SEC 


NOW SUBTRACT SOURCE 

START ADDRESS FROM SUM 

0057 

68 

PLA 


GET LO-BYT SUM 

0058 

E5 

SBC 

EB 


005A 

48 

PHA 


STORE IT ON STACK 

005B 

8A 

TXA 


GET HI-BYT SUM FROM X 

005C 

E5 

SBC 

EC 


005 E 

A0 

LDY 

#02 


0060 

91 

STA 

(F5),Y 

PUT ADJUSTED OPERAND 

0062 

88 

DEY 


INTO CURRENT 

DESTINATION PLUS 3 

0063 

68 

PLA 



0064 

91 

STA 

(F5),Y 

AND PLUS 2 

0066 

88 

DEY 



0067 

B1 

LDA 

(ED),Y 

NOW GET OP-CODE FROM 

CURRENT SOURCE 

0069 

91 

STA 

(F5),Y 

PUT IT IN CURRENT 

DESTINATION 

006B 

4C 

JMP 

0071 

GO TO UPDATE AND END 

CHECK 

006E 

20 

JSR 

00C6 

MAKE STRAIGHT COPY OF 

COMPLETE INSTRUCTION 

0071 

20 

JSR 

00AD 

INCREMENT CURRENT 

SOURCE AND DESTINATION 

ADDRESSES BY LENGTH OF 

INSTRUCTION PLUS ONE 

0074 

20 

JSR 

EA13 

CLEAR THE DISPLAY 
(CRLOW) 

0077 

20 

JSR 

00 A3 

SEE IF PAST END—CARRY 

CLEAR IF SO 

007A 

B0 

BCS 

0018 

NOT AT END SO GO BACK 

FOR NEXT INSTRUCTION 

007C 

90 

BCC 

008 D 

BRANCH ALWAYS (AT END) 

007E 

THE FOLLOWING ROUTINE IS JUMPED TO IF USER 
REQUIRES A MOVE OPERATION RATHER THAN 


RELOCATE. 

IT TRANSFERS A STRAIGHT COPY, BYTE 


BY BYTE FROM SOURCE INTO DESTINATION 

007E 

A9 

LDA 

#01 

SET LENGTH TO ONE 

0080 

85 

STA 

EA 


0082 

20 

JSR 

00C6 

TRANSFER THE DATA 

0085 

20 

JSR 

00AF 

INCREMENT CURRENT 

SOURCE AND DESTINATION 

ADDRESSES BY ONE 

0088 

20 

JSR 

00 A3 

SEE IF PAST END—CARRY 


CLEAR IF SO 
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008B 

B0 

BCS 

007E 

NOT AT END SO BACK FOR 

OOAD 

E6 

INC 

EA 

ADD ONE TO LENGTH 





NEXT BYT OF DATA 

00 AF 

18 

CLC 



008 D 

4C 

JMP 

FEE9 

PATC10—CLEAR DISPLAY 

00B0 

A5 

LDA 

EA 






—HOME TO 

00B2 

65 

ADC 

ED 






MONITOR 

00B4 

85 

STA 

ED 






—REVELATION 6.14 

00B6 

90 

BCC 

00BA 







00B8 

E6 

INC 

EE 







00BA 

18 

CLC 



0090 

THIS SUB-ROUTINE GETS A 4-DIGIT ADDRESS AND 

00BB 

A5 

LDA 

EA 



STORES IT, LO-BYT FIRST, IN TWO ADJACENT PAIRS 

00BD 

65 

ADC 

F5 



OF THE STORE STARTING AT S00EB. 

00BF 

85 

STA 

F5 



WHEN CALLED FOR THE FIRST TIME, X = 0 

00C1 

90 

BCC 

00C5 







00C3 

E6 

INC 

F6 


0090 

20 

JSR 

E3FD 

RBYTE—GET TWO DIGITS 

(HI ORDER) 

00C5 

60 

RTS 



0093 

95 

STA 

EC,X 

STORE THEIR HEX VALUE 

00C6 

THIS SUB-ROUTINE IS CALLED WHEN NO 

0095 

95 

STA 

EE,X 

SAME AGAIN 


MODIFICATION OF THE OPERAND IS REQUIRED. IT 

0097 

20 

JSR 

E3FD 

RBYTE—GET NEXT TWO 


COPIES A COMPLETE INSTRUCTION FROM THE 





DIGITS (LO ORDER) 


ADDRESS POINTED TO BY CURRENT SOURCE, INTO' 

009A 

95 

STA 

EB,X 

STORE 


THE ADDRESS POINTED TO BY CURRENT 

009C 

95 

STA 

ED,X 

AGAIN 


DESTINATION 


009E 

E8 

INX 


INCREMENT X READY FOR 

NEXT ADDRESS 

00C6 

A4 

LDY 

EA 

GET LENGTH OF 

009F 

E8 

INX 







INSTRUCTION 

00A0 

E8 

INX 



00C8 

B1 

LDA 

(ED),Y 

GET BYT FROM SOURCE 

00 A1 

E8 

INX 



00CA 

91 

STA 

(F5),Y 

PUT IT IN DESTINATION 

00 A2 

60 

RTS 



oocc 

88 

DEY 








00CD 

CO 

CPY 

#FF 

ANY MORE ? 

00 A3 

THIS SUB-ROUTINE CHECKS TO SEE IF THE CURRENT 

00CF 

DO 

BNE 

00C8 

YES—GO BACK FOR NEXT 


SOURCE ADDRESS HAS EXCEEDED THE SOURCE 





BYTE 


FINISH ADDRESS- 

IS COMPLETE. 

-IF SO, THE MOVE OR RELOCATE 

00D1 

.60 

RTS 








00D2 

THIS SUB-ROUTINE 

DISPLAYS THE FOUR PROMPT 


00 A3 

38 

SEC 



MESSAGES WHICH ARE STORED IN ASCII AT $00F7 ET 

00A4 

A5 

LDA 

EF 


SEQ. WHEN CALLED FOR THE FIRST TIME, Y = 0 

00A6 

E5 

SBC 

ED 


AND IS USED TO INDEX ALONG THE MESSAGE 

00 A 8 

A5 

LDA 

FO 


TABLE. 

00 A A 

E5 

SBC 

EE 



00AC 

60 

RTS 


IF NOT PAST END, CARRY 

EACH MESSAGE ENDS WITH AN EQUALS SIGN, = 


REMAINS SET (ASCII #3D), AND THIS IS USED TO DETERMINE THE 

END OF EACH PROMPT MESSAGE 


OOAD THIS SUB-ROUTINE INCREMENTS THE CURRENT 


SOURCE AND CURRENT DESTINATION STORES BY AN 

00D2 

B9 

LDA 

00F7,Y 

GET THE CHARACTER 

AMOUNT EQUAL TO THE LENGTH OF THE LAST- 

00D5 

20 

JSR 

E97A 

OUTPUT—DISPLAY THE 

INTERPRETED INSTRUCTION PLUS ONE, SO AS TO 

POINT TO THE NEXT INSTRUCTION TO BE READ 

00D8 

C8 

INY 


CHARACTER 

READY FOR NEXT 

IF DATA IS BEING MOVED, THE LENGTH (IN $O0EA) 

00D9 

C9 

CMP 

#3D 

CHARACTER 

IS IT ? 

IS SET TO #01 AND THIS SUB IS ENTERED AT $00AF 

00DB 

DO 

BNE 

00D^ 

NO—SO GET ANOTHER 

SO THAT SOURCE AND DESTINATION ADDRESSES 

ARE INCREMENTED BY ONE EACH TIME 

00DD 

60 

RTS 


CHARACTER 



M.=0 4C 00 B9 4C 


M.=A406 00 02 C7 08 

,This show that the DILINK address of 0200 has 


M Y UU IFU I UTILITY 

PROGRAMS 


Mark Reardon 
Rockwell International ^ 




Many peripheral devices (printers, CRT Monitors) can use inputs in the 
form of a 20 ma current loop or RS-232. The AIM 65 has a built-in 20 
ma current loop that can be utilized, or the loop can be modified to being 
an RS-232 (DOC. No. 230: RS-232C Interface for AIM 65). 


One large problem still remains. For the AIM 65 Firmware to use the 
TTY port, the Keyboard/TTY switch must be in the TTY position. Un¬ 
fortunately, the AIM 65 then uses the TTY port for all of the inputs that 
usually come from its Keyboard. Most printers have no way of commu¬ 
nicating back to the AIM 65. In order for the keyboard to retain control, 
one of the following programs can be used. Each uses the TTY subrou¬ 
tine in the AIM 65 Monitor (OUTTTY = $EEA8). They also require the 
user to enter the correct values for the baud rate in locations $A417 and 
$A418. The first program (ECHO) utilizes the DILINK ($A406) vector 
to intercept all data on the way to the display/printer and then redirects it 
to both the TTY and display/printer. If this program or any other program 
that modifies DILINK is assembled on the AIM 65 the object code has to 
be directed to an external device. 


If the object code is directed to memory, the AIM 65 will lock up. To 
free it, the power has to be turned off. Re set will not correct the problem. 
"The'seconT program"(LOUT) is a useFoutput program. It allows the user 


to select the TTY port by responding to the OUT= prompt with a U. 


In this way any command that uses the Outall subroutine will direct its 
output to the TTY port. AIM 65 Basic uses Outall for all of its printing 
commands. Unfortunately, AIM 65 Basic also sets the Outflag to equal 
P. To use the user output program the instruction: “POKE 42003,85,” 
needs to be inserted. 


been stored.M.=AAl7 23 ^9 01 00 
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METHOD TO CALCULATE 
BAUD RATES FOR THE AIM 65 


When used with terminals running at 1200 baud and up, the Rockwell 
AIM 65 needs to have the Baud Rate entered manually. To calculate the 
values to enter perform the procedure outlined below: 


Note: All variables are integers and have as/bit as their units. 

1. 10 6 /(Baud Rate) = X 

2. X-67 us/b = Y 

3. Y/256 = Z remainder W 

4. $A417 = Z in Hex 

5. $A418 = W in Hex 




In actual use there have been two major sources of failure with these pro¬ 
grams. The easiest to cure is if the baud rate isn’t entered properly. To 
determine the appropriate values do the calculations as shown below. The 
second source of trouble has been that different manufacturers have de¬ 
signed their peripheral requiring different inputs than are provided. In 
these situations these two programs had to be modified to satisfy the pe¬ 
ripheral’s needs. 




: .=300 


/*v 


I 


0000 

0000 

0000 

0000 

0000 

0000 

A406 C 
A408 

*0200 “ ( 


0300 

0302 

0305 

0307 

QfQPr 


LDA #00 
STA A406 
LDA #02 
STA A407 
-mJ-BfiRG-R 


A9 00 
8D 06 A4 
A9 02 
8D 07 A4 




.OUTINE 


0202 
0204 
0207 
0209 
0200 
020E 
0211 


0000 
0000 
0000 
0000 
0000 
0000 
010A 
010C 
0200 
0202 
0203 
0205 
0207 
020A 
0200 
02 OF 
0211 
0214 
0215 


-030A 
030A 
030B 
030B 

,K.*=300 

/05 

0300 A9 
0302 8D 
0305 A9 
0307 8D 
030A 00 


BRJ-rRROR- 
BRK 00 
ERROR 


LDA #00 
STA A406 f 
LDA #02 
STA A407 - 

BRK 


>- 


~~s 

t 


I A'' 


Ih 


y 


(r r 


,M.=0300 

, . 0304 
, . 0308 
, . 030c 


A9 00 8D 06 
A4 A9 02 8D 
07 A4 00 AA 
AA AA AA AA 


;*.=2oo 't-,, 

> 1 • -f 4 




CMP #0D 
BNE 020E 
JSR EEA8 
LDA #0A 
JSR EEA8 
LDA #FF 
JMP EEA8 


0200 
0202 
0204 
0207 
0209 
020C 
020E 
0211 
,K.*=200 
/07 

0200 C9 CMP #0D 
0202 DO BNE 020E 
0204 20 JSR EEA8 
0207 A9 LDA #0A 
0209 20 JSR EEA8 
020C A9 LDA #FF 
020E 4C JMP EEAS 


L—> 

. cL . 

C9 0D 
DO 0A 
20 A8 EE 
A9 0A 
20 AS EE 
A9 FF 
4C AS EE 


-©- 


2. bt)b/-o/ us/D = obuu 

3. 6660/256 = 25 Remainder 200 

4. $A147 = 25 10 = 19 16 

5. SA418 = 200 10 = C8 ih 
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HXEB^UKE 


DATA STATEMENT 
GENERATOR 


G. Brinkmann 
W. Germany 

Remember the last time you had to convert a machine language program 
to data statements so your Basic program could poke it into RAM some¬ 
where? I’ll bet you really enjoyed having to convert each hex byte into 
decimal and then typing it in. No? Well, then maybe you’ll find this pro¬ 
gram will come in handy next time around. 

What it does is convert hex data to decimal and generate BASIC data 
statements with the decimal data. The statements that it generates are 
sent out to the audio cassette interface which is used as temporary stor¬ 
age. The input is in the form of hex numbers which could come from the 
conversion program itself, as is in the example or, from memory with a 
minor change to the conversion program. 

Note that this approach needs only one tape without remote control and 
only “on board’’ assembly language routines. The following example 
converts the first 26 HEX-values of R. Reccia’s program (INTERAC¬ 
TIVE 1) into BASIC-DATA-Statements and writes them to tape. 

It works as following: 

—the HEX-values of the assembler language program are put into the 
BASIC-Program by DATA-statements. They must be ended by an 
“END’’ DATA (or any other special mark, see lines 90, 260). 

—In line 190 you are asked for the line-number of the first DATA-state- 
ment to be generated, depending on your BASIC-program. 

—Line 210 performs a call to WHEREO and opens the outfile. If it is a 
tape, with a gap of 80 (POKE 41993,128). 

—The main loop starts at line 230, the STRING S$ is filled with the 
statement-number and the constant “DATA’’. 

—In line 260 we read the HEX-input-data until “END’’. The data is 
added to S$ after converting to decimal in a subroutine. Each DATA- 
line takes 10 items. 

—The PRINT-statements (line 350) write the STRING S$ to any open 
output, adds 1 to the statement-number and goes to the start of the 
main loop (line 230). Note that until now the first statement-line has 
a linenumber of d+1 (where d was your input). 


—If-the END-mark has been read, the last DATA-statement will be 
printed, followed by the statement-line “d” with a counter of all 
DATA-items. 

—The file will be closed in line 410 through a jump to B52B, a BASIC- 
routine which prints a CTRL/Z, closes the file and waits for the new 
input. 

—The HEX to DECIMAL conversion takes place in statement 450-560 
and uses the STRING H$ in 170. Leading zeroes in the HEX-numbers 
are not needed. 

—If an error occurs, the faulty item will be printed to the printer and the 
file is closed. Therefore, you should make a trial run before going to 
tape (by hitting RETURN after OUT=) and any error will go to the 
printer (which has not to be on). 

When everything worked ok until now, you have a file with DATA-state- 
ments on tape. To read it into your actual program, just use a statement 
as 

100READ N:FOR I = 0 TO N-1:READ X:POKE xxxx+I,X:NEXT 

Remember, the first DATA-statement contains a counter of the following 
DATA-items. So you don’t have to bother about it, the first READ will 
get it for you. This is extremely useful during the test phase, where 
changes occur quite frequently. 

The next step is to load the statements into your BASIC program with the 
LOAD command. Be sure that you have chosen the right line-number, 
the LOAD command will over-write duplicate line-numbers. However, 
while testing, it might save you deleting the old lines. 

If you are working with the ASSEMBLER and the BASIC at the same 
time, you could change the READ in line 260 to PEEK’s. This saves you 
the initial typing in of DATA-statements and the conversion will be done 
by BASIC. However, you should either use a counter or a unique mark 
as 0,0,0 to find an end to the data. 

Of course, the data need not to be in memory at all. You can generate 
DATA-statements by reading from keyboard or by using your BASIC- 
program to compute them from other data. I use this program regularly 
while computing moving averages and other statistics and then replacing 
the old values by the new ones for the next run. 


ISlTEBAOTIVE 
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? () D A1 A A 9 p B 7 s' to 1 D .» 2 ? A 8 ? 2 0 p 1 U p F A p A 9 p 2 3 ? 2 .0 p 4 A p F 2 
BO IJ A I AA2 p 0 p BD 69 p OF’ p 2.0 p 4A p | - 2 p l£8 p C9 p 21 p DO p F- 5 
90 DATA E'r-ID 

TOO ITFIIM I IF X TO DECIMAL 

1.10 FTF.fi GENERATES DATA--LI NFS ON TAPE-FILE 

120 ITEM G, BITINKMANN 

130 FI*EM AUF M GRAEVERICH 19A 

140 FTEM D-5414 UAL LEND AFi 

150 ITEM WEST GERMANY 

160 ITEM IN.IT 

1.7 0 H $ = • 01 2 3 4 5 6 7 8 9 A B 0 D E F" ? “ 

180 ITEM FIRST LINE FOR COUNT OF DATA ITEMS 
190 INPUT-NIT OF FIRST DAT A-LINE “ JDUD-DH-l 
200 REM OPEN TAPE-FILE UUTF-I LONG GAP 
21 0 P 0 K £ 4 P :l. :l. 3 ? P 0 K E 5 P 2 3 21 P 0 K E 419 9 3 p 12 8 
220 X--USR(O) 

23 0 S !l; - S T R $ ( D > •{•" D A T A “ 

240 REM 10 ITEMS PER LINE 

250 FOR N--:: I TO 1.0 

260 READ A$UF A$ - 11 END" THEN 390 

270 REM SUBROUTINE HEX --> DECIMAL 

280 GOSUB 470 

290 REM ON ERROR CLOSE FILE 
3 0 0 IF A1 $ < > " E R “ T H E N 310 

3 0 5 P 0 K E 4 2 0 0 3 ? 13 i P IT IN T ! • E R IT 0 R IN L1N E " ? D i G 0 T 0 4 3 0 
31 0 IF N > 1 T H E N S *=S $ + " p “ 

320 REM STRING CONCATENATION 
330 S$-S$!A1 $?NEXT 

360 REM OUTPU1 TO ANY OPEN FILE? INC LINE NUMBER 

3 7 0 P R ]. N T S * 1 D = D +1 ? G 0 T 0 2 3 0 

380 ITEM PRINT LAST LINE AND THEN FIRST 
390 PRINT SI 

4 0 0 S * = S T IT $ ( D1 ) +« D A T A “ 1S T R * < < D - D1 -1 ) * 10+N •••• 1 ) 

410 PRINT St 

420 REM CLOSE OUTPUT FILE 
4 3 0 F : * 0 K E 4 ? 4 3 1 P 0 K E 5 ? 181 i X=U S IT (0 ) 

440 REM JUMP TO BASIC INPUT 
450 END 

4 60 REM SUBROUTINE HEX --> DECIMAL 
470 IE LENT A10—1. THEN At=*0"+A$ 

480 FOR 1-1 TO 17 

4 9 0 IF MID $ C A $ ? 1 ? 1) MID * (F I $ ? I ? 1) T H E N A -1 6 * (1 -• 1 ) i G 0 T 0 5 2 0 
500 REM AFTER LAST NEXT => ERROR 

510 NEXT?GOTO 580 
520 FOR 1=1 TO 17 

5 3 0 I F ; ‘ MID $ < A $ ? 2 ? 1) = MID $ ( H * ? I ? 1 ) T F I E N A = :: A +1 -1 ? G 0 T 0 5 6 0 
540 NEXT?GOTO 580 

550 REM IT'S A GOOD ONE 
5 6 0 A1 $ - S T R $ < A ) ? IT E T (J R N 
570 REM PRINT ERROR MSG 

5 8 0 A1 $ = “ E R * ? IT E T U R N -e- 
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CASSETTE LOAD UTILITY 

... For AIM 65 

Mark Reardon 
Rockwell International 

This multi-purpose utility program allows you to load programs with 
offset and recover programs that have load errors. 

For example, suppose you wish to reload a program to reside at $0500 
that was originally dumped from $0200. First, start the program by 
pressing the ‘FI ’ key. The ‘FROM= ’ prompt should appear first. Enter 
0200 to specify where the program used to reside in memory and press 


the ‘RETURN ’ key. Answer the ‘TO= ’ prompt with 0500 to show where 
the program is going to be loaded. (Programs can only be offset by even 
page amounts. For example, if a program originally resided at $0236, 
it could only be offset to $0436, $0636, $0A36 etc. not $0400, $0777, 
or $0100. Get it? This is because the offset calculation is done only on 
the page number (upper byte) and not the byte number (lower byte).) 

The rest of the cassette load prompts are the same as the normal ones 
in the standard cassette load routine. 

This program will also let you load a program even though there are 
loading errors. This, at least, gives you a chance to recover a program 
that would otherwise be impossible to recover. The normal cassette load 
routines will stop when an error occurs. 


2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

2000 

01.0C 

010C 4C 61 00 


NAME 

=$A42E 

CK8UM 

=$A41E 

TAPAR 

==$A436 

A DDR 

== $ A 41C 

SI 

=$A41A 

TEMP 

=$0117 

y 

TAISET 

==$EDEA 

GETTAP 

=$EE29 

PL.XY 

=$EBAC 

PHXY 

=$EB9E 

NAMO 

==$E8CF 

OUT ALL. 

=$E9BC 

SADDR 

=$EB78 

COM IN 

==$E1A1 

PROM 

=$E7A3 

TO 

=$E7A7 

ADDRS.1. 

==$F910 

CRLOW 

=*EA13 

BLANK 

=*ES3E 

CHEKA 

==$E54E 

NXTADD 

=$E2CD 

NUMA 

=$EA46 

CL.RCK 

==$EB4D 


*==$1.0C 


JMP START 


JSET UP FI KEY 


01. OF 
0000 

00 


0001. 

45 

52 

00 OB 

4C 

4F 

0011 

C7 


0012 

44 

4F 4E 

0015 

CE 



*==$00 

EERO .BYT $00 

MSG .BYT 'ERRORS IN ' 

MSG1 . BYT '■ LOAD IN ' t $C? 

MS 02 




BYT ' BON' t $CE 
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0016 

20 

9E 

EB 

TAPE 

JSR 

PHXY 


00.1.9 

20 

EA 

ED 

READ 

JSR 

TAI SET- 

? SET UP TAPE 

001C 

20 

29 

EE 

SYNC 

JSR 

GET TAP 

? GET A CHAR 

00 IF 

C9 

23 



CMP 

#'* 

P BLOCK START 

0021 

F0 

06 



BEQ 

FOUND 


0023 

C9 

16 



CMP 

#*16 

P SYN? 

0025 

DO 

F2 



BNE 

READ 


0027 

FO 

F3 



BEQ 

SYNC 


0029 

A 2 

00 


FOUND 

LDX 

#0 

ySTORE IN BUFFER 

00 2 B 

20 

29 

EE 

MORE 

JSR 

GETTAP 

P GET A CHAR 

002E 

9D 

.1.6 

01 


ST A 

TEMP-1 y X 


0031 

E8 




I NX 



0032 

EO 

52 



CPX 

#$52 

P BUFF" FULL 

0034 

DO 

F5 



BNE 

MORE 

P NO 

0036 

20 

AC 

EB 


JSR 

PLXY 


0039 

60 




RTS 



003A 

20 

9E 

EB 

COUNT 

JSR 

PHXY 


003D 

AE 

36 

A4 


LDX 

TAPAR 

P BUFF POINTER 

0040 

EO 

4F 



CPX 

#79 

P BUFF EMPTY 

0042 

DO 

05 



BNE 

TIBI 

P NO 

0044 

20 

16 

00 


JSR 

TAPE 

? READ A BLOCK 

0047 

A 2 

00 



LDX 

#00 

PRESET POINTER 

0049 

BD 

17 

01 

TIBI 

LDA 

TEMPyX 

P GET CHAR 

004 C 

E8 




I NX 


PINC BUFF POINTER 

00 4 D 

8E 

36 

A4 


STX 

TAPAR 

P SAVE:" POINTER 

0050 

20 

AC 

EB 


JSR 

PLXY 


0053 

EO 

00 



CPX 

#00 

y XOO THEN ADD CKSUM 

0055 

FO 

09 



BEQ 

RET 


0057 

40 

4E 

E5 


JMP 

CHEKA 

PADD TO CKSUM 

005A 

A5 

00 


ERROR 

LDA 

ERRO 

P O-NO ERRORS 

00 5C 

DO 

02 



BNE 

RET 


005E 

E6 

00 



INC 

ERRO 

P MAKEOO 

0060 

60 



RET 

RTS 



0061 

20 

A3 

E7 

START 

JSR 

FROM 

PORIG ADDR 

0064 

20 

3E 

E8 


JSR 

BLANK 

PLEAVE A SPACE 

0067 

20 

10 

F9 


JSR 

ADDRS1 

?ADDR TO SI 

006A 

20 

A 7 

E7 


JSR 

TO 

PNEW ADDR 

00 6 D 

38 




SEC 



00 6E 

AD 

1D 

A4 


LDA 

ADDR+1 


0071 

ED 

IB 

A4 


SBC 

S.1.F1 


0074 

BD 

IB 

A4 


ST A 

Sl + 1 

?OFFSET VALUE 

0077 

20 

13 

EA 


JSR 

CRLOW 

PCLEAR DISPLAY 

007A 

20 

CF 

E8 


JSR 

NAMO 

P FILE NAME 

007D 

20 

16 

00 

BLOCK 

JSR 

TAPE 


0080 

A 2 

05 



LDX 

#5 


0082 

8E 

36 

A4 


STX 

TAPAR 


0085 

AD 

16 

01 


LDA 

TEMP-1 

PBL.K NO 

0088 

DO 

F3 



BNE 

BLOCK 

PNOT BL..K 0 

008 A 

BD 

16 

01 

AGAIN 

LDA 

TEMP-1vX 


008D 

DD 

2D 

A 4 


CMP 

NAME-1 s-X 

P CMP NAMES 

0090 

DO 

ED 



BNE 

BLOCK 

?DIFFERENT 
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lUEH^IKE 


0092 

CA 




D EX 



0093 

DO 

F5 



ONE 

AGAIN 


0095 

A 2 

OA 



L..OX 

♦MSG1-MSG 


0097 

20 

F2 

00 


JSR 

OUT 

y DISPLAY LOADING 

009A 

20 

3 A 

00 

GETCH 

JSR 

COUNT 

P GET A CHAR 

009D 

C9 

30 



CMP 

#" 

5 PRECORD START 

009F 

00 

F9 



ONE 

GETCH 


00A1 

20 

40 

EB 


JSR 

CL..RCK 

yCLEAR CKSUM 

00A4 

E8 




I NX 



00A5 

20 

3 A 

00 


JSR 

COUNT 

y RECORD LENGTH 

00 A 8 

A A 




TAX 



00A9 

FO 

39 



OEG 

STOP 

5 O-DONE 

OOAB 

20 

3 A 

00 


JSR 

COUNT 


00 A E 

3.8 




CLC 



00 A F 

60 

3.0 

A4 


ADC 

Sl + 1 

y ADD OFFSET 

00B2 

80 

3.0 

A4 


ST A 

ADDR+1 


00 B5 

20 

3 A 

00 


JSR 

COUNT 


00 B8 

80 

3. C 

A4 


ST A 

AO OR 


00 BB 

20 

3 A 

00 

L0A02 

JSR 

COUNT 

y GET DATA AND STORE 

OOBE 

AO 

00 



LOY 

#0 


00 CO 

20 

78 

EB 


JSR 

SADDR 

?STORE AND CMP 

00C3 




n'O ELIMINATE MEMORY 

FAIL ERRORS 

00C3 




y REMOVE 

"OEG OK' AND 

'JSR ERROR" 

00C3 

FO 

03 



BEG 

OK 

5010 MEM ACCEPT? 

00 C 5 

20 

5 A 

00 


JSR 

ERROR 


00 C 8 

C8 



OK 

I NY 


5 Y = 1 

00C9 

20 

CO 

E2 


JSR 

NXTADD 

y ADO Y TO ADOR 

OOCC 

CA 




OEX 


5 COUNT BYTES 

OOCD 

DO 

EC 



ONE 

L0A02 


OOCF 

20 

3 A 

00 


JSR 

COUNT 


0002 

CD 

.1. F 

A4 


CMP 

CKSUM+3. 


0005 

DO 

08 



ONE 

ERR 


0007 

20 

3 A 

00 


JSR 

COUNT 


000 A 

CO 

.1. E 

A4 


CMP 

CKSUM 


0000 

FO 

00 



OEG 

GETCH 

5CKSUMS OK 

000F 

20 

5 A 

00 

ERR 

JSR 

ERROR 


00E2 

00 

06 



ONE 

GETCH 


0 0 E 4 

20 

13 

EA 

STOP 

JSR 

CRLOW 


00E7 

A 2 

00 



LDX 

#00 


00E9 

AS 

00 



L..OA 

ERRO 

50 IF NO ERRORS 

OOEB 

86 

00 



STX 

ERRO 


OOED 

FO 

03. 



OEG 

NOE 


00 EF 

7C 




♦ 0Y T $2C 

5 CODE FOR BIT ABS 

OOFO 

A2 

3.1 


NOE 

LDX 

•MSG2-MSG 

5 FINAL MSG AND RTS 

00 F2 

05 

0.1. 


OUT 

LDA 

MSGs-X 


00F4 

48 




PH A 



OOFS 

20 

OC 

E 9 


JSR 

OUTALL 


OOF" 8 

E8 




I NX 



00F9 

68 




PL A 



OOFA 

.1.0 

F6 



OPL. 

OUT 

5 MSB-1 

OOFC 

60 




RTS 



OOFO 





* END 
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INTERRUPT-DRIVEN 
KEYBOARD 
FOR THE AIM 65 

Dr. Will Cronyn 
Borrego Springs, CA 

A common requirement in interactive computer systems is the entry of 
ASCII characters through the keyboard at random or erratic intervals 
when a program is executing. The program may be computational, pro¬ 
cess control, monitoring or some combination of these or other functions. 
The AIM 65 monitor routines require an explicit call to the keyboard and 
all (i.e. READ, RBYTE, etc.) except RCHEK demand a response before 
execution continues. The results would be disastrous if your AIM 65 
controlled desert irrigation system had to wait 4 weeks before resuming 
execution for you to return from your summer vacation in Alaska to 
answer the question: Do-you want the citrus put on a 3-days-a-week 
watering schedule? You could lace your program with calls to RCHEK 
but such calls, which consume 959 microseconds each (if there is no 
keyboard entry), can consume a large fraction of the execution time of 
the computer in spite of the fact that they are utilized for only a tiny 
fraction of the time. 

^ One solution to the problem was described by De Jong in issue 3 of 
Interactive. He suggested the fundamental solution to the problem: gen¬ 
erate interrupts for which the interrupt service routine looks for a key¬ 
board entry. To allow continuation of program execution in the absence 
of a keyboard entry, De Jong modified AIM Monitor routines. The result 
is an interrupt routine which requires $A3 (163) bytes of code in 87 lines. 
In addition to the fairly lengthy code, it does not appear that his routines 
are fully debounced, i.e. debounced on both keystroke initiation and 
termination. 

My solution is to use two interrupt service routines: one to jump from 
an executing main program to JSR READ, and the other to jump from 
READ (in the most likely event that no keyboard entry is available) back 
into the main program. Not only does this approach work but also it uses 
unmodified monitor routines and is instructive in its utilization of a dy¬ 
namically programmed interrupt vector. The interrupt service routines 
require $40 (64) bytes of code in 29 lines. 

DETAILED PROGRAM DESCRIPTION 

There are three parts to the code which appears in the listing: (1) system 
configuration and initialization, $200-22B; (2) a “main” program which 
provides an immediate, positive verification that the interrupt-driven 
keyboard is functioning properly, $22C-24C; and (3) the interrupt rou¬ 
tines themselves in a location which would be appropriate for most 4K 
AIM applications, $FCO-FFF. The interrupt routine sequences and con- 

^ figurations can best be understood by referring to the IRQ signal display. 
The T1 timer counter ($A004,5) is loaded with $FFFF, which produces 
an interrupt 65 milliseconds execution of the main program begins. The 


timer latch ($A006,7) is loaded with $4000. Thus, in the T1 free-run 
mode (UACR loaded with $40), when T1 times out after 65 milliseconds, 
which results in a jump to MNSVC, the contents of the T1 latch is trans¬ 
ferred to the counter, thereby setting up another interrupt 16 milliseconds 
later. The interrupt vector is reconfigured to RDSVC and the T1 latch 
is loaded with $FFFF. Thus after 16 milliseconds in MNSVC the inter¬ 
rupt results in a jump to RDSVC, which returns program execution to 
the “main” program for another 65 milliseconds. Parameters for the next 
cycle are established by reconfiguring the interrupt vector to MNSVC 
and loading the T1 latch with $4000. 

It may appear that 16 milliseconds is a long time to decide whether or 
not READ will actually be presented with a keyboard entry. However, 
because of timing requirements in READ which are based on the need 
to debounce key stroke and key release (a total of about 11 milliseconds) 
this time cannot be significantly reduced. In tests I performed, errors 
were evident at an allowance of $2800 microseconds, while none were 
seen at $2C00. I tested the program at keystroke rates up to about 540/ 
minute (my maximum single-key stroking rate) with no sign of errors. 

Note that the stack pointer is saved in SAVSP when MNSVC is entered. 
This procedure is required because normally, i.e. when there is no key¬ 
board entry for READ, exit from READ is achieved through use of the 
interrupt rather than through an RTS within READ itself. Thus the stack 
is not properly restored and since there are 3 layers of subroutines within 
READ it would be unnecessarily difficult and risky to keep track of the 
depth of the stack when READ is exitted via interrupt. 

The “main” program was a key element in testing and debugging the 
interrupt-driven keyboard. Through the display of “?” at the rate of 
about 3/second, with a carriage retum/line feed after 10 “?”, it provides 
an immediate indication that both the ‘ ‘main ’ ’ program and the keyboard 
program are functioning. Of course a character entered through the key¬ 
board would normally be placed in a buffer accessible to other parts of 
the program instead of simply being displayed via OUTPUT. The source 
code, even in its fully annotated form, is short enough that it, the As¬ 
sembler symbol table, and the object code can all be co-resident in the 
AIM during development or modification. 


2 0 0 0 ? T H 13 P R 0 8 R A M E N A B L E 3 

2000 9 THE AIM-65 T O MA0E 

2 0 0 0 v A N X N TIX R R U P f - D RIV E N 

2 0 0 0 v KIX Y B 0 A R D y I ♦ E , E N T R V 

2000 ?WITHOUT EXPLICIT 

2 0 0 0 a E N T R Y C A L L 3 •> 3 P A R T S 

2 0 0 0 P T 0 T HIS C 0 0 E t 1 - IN -- 

2 0 0 0 9 T E R RIJ P T C U N FIG U R A - 

2 0 0 0 * T10 N v 2 • D U H M Y M A I N 

2000 yPR0 8 RAM UHICH DI8- 

2 0 0 0 y P L A Y 8 3 " ? " / 8 E C y 10 

2 0 0 0 y " ? " / LI H E } 3 - 1 N T E R - 

2 0 0 0 y R U P T S E R VIC E R 0 IJ - 

2 0 0 0 y TIN E S ♦ M RIT T E N B Y i 
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llllKAClIVr 


v o () () 




J OR. WII 

.1... 

CRONYN 


0226 

A 9 

40 


EDA 

#$40 


>' 0 0 0 




P SYMBIi 

)T 

IC DATA C 

0 M M 

0228 

8D 

07 AO 


ST A 

UT1LL+1 


2000 




9 I **’ ❖ (.) ♦ 

B 

OX 626 


0 2 2 B 

58 



Cl... I 



2000 




? B (.) R R E I 

30 

SPRINGS y 

CA 








7000 




9 714 * ** 7 

L "2 
.1 / 

-•5498 92 

0 0 4 

022C 



y S ) A R 1 

"MAIN" PROG 

RM 

2000 




9 9 D1::! C .1 

?8 

0 ♦ 


022C 

A 2 

OA 

BEGIN 

I..DX 

# 10 










02 2E 



? DOMT 

HAV 

I I NT EUR 

TS 

2000 




S MON I Tl 

:)R 

ROUTINES 


02 2E 



?DURING PR 

i: NT OF " 

ii 

2 0 0 0 




? a i... i... e: 

<c 

EPT "READ 

II 

022E 

78 


IDLE 

SEI 



2000 




P ARE Fl 

:)R 

DUMMY MA 

IN 

02 2 F 

20 

D4 E7 


JSR 

QM 


2 0 0 0 




? PROGRAM 

£ 


023 2 

58 



CL I 



2 0 0 0 




N IJ M A 

:::: 

$£>146 


0233 

20 

3F 02 


JSR 

DELAY 


2000 




CRI...F 


$E9F0 


0236 

CA 



DEX 



2 0 0 0 




OUTPUT 

:::.* 

$ E 9 ? A 


0237 



9 0 R E 

WE U 

••* TO 10? 


2000 




READ 


$ E93C 


0237 

DO 

F 5 


BNE 

I DIE 


2 0 0 0 




QM 


$ E 7 D 4 


0 2 3 9 

20 

EO E9 


JS R 

CELL 










023 C 

4 C 

2C 02 


JMP 

BEGIN 


2000 




5 IRQ VI 

:-:C 

T/Tl CONE 

I0. 

02 3F 



PFQR D 

ELAY 

HAVE 2 


2 0 0 0 




:i: RQU4 


$ A 4 0 0 


023 F 



? LOOPS 

■•••OUT 

SIDE=$80 

9 

2000 




UACR 


$• A 0 0 B 


02 3 F 



P INDE 

X ~ C N T R‘« 


2000 




in ii... 


$A004 


02 3 F 



?I NSID 

E~$F 

FT INDEX* 

Y 

2 0 0 0 




! IT ILL 

:::: 

$A006 


02 3 F 

AO 

FF 

DEL. AY 

LDY 

#$FF 


2 0 0 0 




UIER 

:::: 

$AOOE 


0241 

A 9 

80 


LB A 

#$80 


2000 




? PAGE 

0 

VARIABLE 

s 

0243 

85 

00 


ST A 

CNTR 


2000 





* 

-••$00 


0245 

88 


I... DO PI 
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A BASIC HINT 


The possibilities of this feature of the AIM 65 are limited only by your 
imagination. 


Howard A. Chinn 
S. Yarmouth, MA 

Issue No. 1 of INTERACTIVE called attention to the use of the AIM 65 
text editor for editing BASIC programs. Mention was not made, how¬ 
ever, of the use of the text editor to write BASIC programs that contain 
both direct (calculator mode) and indirect (programming mode) com¬ 
mands. This feature (which is not available on a TRS-80 until you up¬ 
grade to a disc system) provides an opportunity for many interesting 
applications. 


Now, can someone tell me how to write a BASIC program in the text 
editor including the essential “CTRL Z” and a command to automati¬ 
cally turn off the cassette recorder after a dump to tape? 

(The “Z” at the end of Listing #1 is a control Z). 


LISTING NO. 1 LISTING NO. 2 


Listing No. 1 is that of a short demonstration program prepared in the 
text editor and printed using the Editor’s “L” command. This program 
was recorded on tape using the Editor’s “L” command. Next, BASIC is 
entered and the program loaded using BASIC’S ‘ ‘LOAD ’ ’ and with the 
printer turned “OFF’’ (for this particular demonstration). Listing No. 2 
was generated automatically while the program was being loaded! 

Listing No. 2 shows that a title and explanation is printed without the 
distracting “REM’’s. Program lines 10 to 40 are then placed in RAM. 
Next, the POKE command turned the printer “ON”. The list command 
did its thing just as if you had typed in the command using the keyboard. 
And, finally, the “RUN” command ran the program automatically and 
since the printer was still “ON” the result is shown on the printout. The 
program, of course, resides in RAM. It could have been made to disap¬ 
pear had the original listing contained “NEW” at its end. 

In a nutshell, when using the AIM 65 text editor any entry without a line 
number becomes a direct command and those with line numbers are in¬ 
direct commands that are placed in RAM in the usual fashion. 
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IVThKACTIVI 


(Continued from page 2) 

above the IRQ Interrupt Processing section of the program. Also change 
the instruction BNE INTRET in the IRQ Interrupt Processing section to 
read BEQ INTRET. 

The disassembly listing will also have to be changed. Add a JMP 0388 
instruction between the CLI and LDA #40 instructions. The BNE 0392 
will then be changed to BEQ 0395 because that part of the program is 
shifted upwards in memory. 

UNHELPFUL USR HELPER 

For some unknown reason, the following program lines were omitted 
from the BASIC USR HELPER article on page 18 of issue #3. 

The following lines are required: 

0 DB = 13*11 +11 :F = 15:FA = 15* 16 + 10:GO TO 3 

1 POKE4,DB:POKE5,F:RETURN:SET UP FOR SETARD 

2 POKE4,FA:POKE5,F:RETURN:SET UP FOR CALLIT 

3 REM PROGRAM MAY START HERE 

Note that the definition on line 0 will speed up operation by eliminating 
the required conversions to decimal every time lines 1 or 2 are called. 

NEWSLETTER REVIEW 

From the Editor: 

The Sept/Oct issue of the Target, a newsletter dedicated entirely to the 
AIM 65 was, perhaps, the best issue of that newsletter that I’ve seen. In 
it were two articles that should tickle the fancy of most any serious AIM 
65 user. The first article showed how to hook up the new General Instru¬ 
ment Programmable Sound Generator (AY3-8910) to the Aim 65 and 
presented a software driver to make the thing generate telephone touch 
tones from phone numbers which are stored in memory. 

I have played with this chip quite a bit and am really impressed with all 
its capability. The AY3-8910 interfaces very easily with the user R6522. 

The other neat article that was in the issue presented complete plans 
(hardware and software) for an EPROM programmer that can program 
virtually all of the most popular EPROMS—2708, both styles of the 
2716 and 2532. The software is self prompting and the hardware design 
is complete down to the AC power supply. 

The Sept/Oct issue (1980) of Target is easily worth the $6.00 yearly sub¬ 
scription rate (it’s published bimonthly). Outside of the U.S. and Canada 
the price is $12.00. Contact Donald Clem, RR#2, Spencerville, OH 
45887. 

BEHAVIORAL SCIENCES 
AIM-65 USERS GROUP 

Workers in the behavioral and biological sciences who are currently us¬ 
ing, or are interested in using the AIM 65 are invited to participate in 
a user's group now forming. Areas of interest include hardware and soft¬ 
ware for experimental control, data acquisition, statistical analyses, and 
other applications. If interested, please write, outlining areas of interest, 
current and planned projects, etc., to Dr. J. W. Moore, Jr., Box 539 
MTSU, Murfreesboro, TN 37132. 


LETTERS TO THE EDITOR 

Dear Eric: 

In a previous letter I complained about the lack of readability of many of 
the programs in issues #1 and #2 of INTERACTIVE. This letter is to 
thank you and commend you for the fine job you have done in issue #3 
in rendering the programs more readable. The only one which is faint at 
all but still is quite readable is the simultaneous equations from George 
Sellers. 

Here is a question you might be able to answer in the journal. Does any¬ 
one have a machine language program which will make a software con¬ 
version from ASCII to Baudot and output serial Baudot on the AIM 65’s 
20 miliampere current loop? A relay could then be used to transfer the 
Baudot to the 60 miliampere current loop of a Model 15 five level tele¬ 
type. A perhaps related question—can the 20 miliampere TTY loop out¬ 
put of the AIM 65 be used to output to a printer and still use the AIM 65 
keyboard? If so, where would the KB D/TTY switch be placed? 

Another question—Since the AIM 65 monitor has routines in it which 
convert shifted characters so that the output is entirely capitals (no lower 
case) how can the AIM 65 board be used to feed a printer the necessary 
codes for lower case? I thought perhaps Dr. DeJong’s program for the 
Interrupt Driven Keyboard on page 12 would answer this, but his routine 
contains at location 0C7F “if alpha characters do not shift" just as does 
the monitor. Could one just leave out the routine between 0C7F and 
0C85 and get lower case characters output? 

Keep plugging along and keep up the good work. Happy to see that 
INTERACTIVE is getting larger all the time. Thanks. 

Sincerely, 

John U. Keating, M.D. 

8415 Washington Blvd. 

Indianapolis, IN 46240 

Dear John , 

I don’t know of any program available to convert the TTY port to Baudot. 
Doesn’t sound too difficult , however. See the program on page 13 of this 
issue for the procedure for using the TTY port without regard to the TTY! 
KBD switch. / would assume that lower case output could be achieved 
by modifying an input program (such as DeJong’s) and writing a new 
output program. 

Eric 

Dear Editor, 

I must apologize. I am rather negligent in sending in programming 
“goodies" to share and this contribution does not make up for it. How¬ 
ever, I noticed in Issue 2, there was an 18 line step disassembler. This 
should make it even easier; excluding the F3 jump, it is only 3 lines 
long. If printout is desired, it requires all of 4 lines. 


0112 

JMP 

00D0 

(this is arbitrary) 

00D0 

INC 

A419 
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00D3 JSR E71D 

00D6 RTS 

To run, toggle the printer off. Next, disassemble the first instruction of 
the program under examination using the K command and a RETURN 
following the / prompt. This sets up the various flags and registers. To 
disassemble subsequent instructions, just press the F3 key. 

The printing version goes as follows: 

0112 JMP 00DO (again, this is arbitrary) 

00D0 INC A419 

00D3 JSR E71D 

00D6 JSR F04A 

00D9 RTS 

Toggle the printer off, and disassemble the first instruction as above. Hit 
the PRINT key to print the first instruction. Each press of F3 will di¬ 
sassemble and print the next line. 

Michael L. Brachman 
3513 Lake Ave. #307 
Wilmette, IL 60091 

Dear Editor: 

I think I’ve hit on a good way to build data files on tape from AIM 
BASIC. This is an alternative to the method described by Ralph Reccia 
in Issue No. 1. 

To write a file on tape, insert the following line in the BASIC code before 
the first PRINT statement you wish to send to tape: 

POKE4,113 :POKE5,232 :X = USR(X) 

This line calls the monitor subroutine WHEREO, which issues the fa¬ 
miliar prompts OUT=, F=, T=. Answer these prompts with T, your 
desired file name, and 1 or 2. This initializes a tape file with the given 
name. From here on, all BASIC PRINT statements will direct output to 
the tape buffer, and when the buffer is filled it will be dumped to tape. 

Don’t forget to close the tape file before leaving the BASIC program. 
This is necessary to ensure recording the last dab of output. To close, 
insert the following line after the last PRINT which you want directed 
to tape: 

POKE4,10:POKE5,229:X = USR (X) 

This calls the monitor subroutine DU11, which closes the file and re¬ 
directs output to the display/printer. As a final touch, optional but nice, 
stop the tape recorder by inserting the line: 

POKE43008,207 AND PEEK(43008). 

(I’ve assumed that you have the tape recorder remote control connected.) 

To read a tape file, insert the following code before the INPUT statements: 

POKE4,72 :POKE5,232 :X = USR(X) 


This calls WHEREI, which issues input prompts, searches for the desired 
file, and loads the first block into the buffer. Additional blocks are loaded 
as they are needed. To restore normal operation, insert the line: 

POKE42002,13 

A potential problem on input from tape and be sidestepped by ending 
the file with a distinctive end-of-file flag, say 9999, when it is written. 
Thus, the end of file can be detected on input by testing each datum as 
it is read. There is room for some ingenuity here. 

Adroit use of POKE42002,84 and POKE42002,13 permit reading alter¬ 
nately from the tape and from the keyboard. The tape file need not be 
re-initialized each time. POKE42003,84 and POKE42003,13 serve a 
similar function for output. 

Incidentally, I’ve found that the tape recorder remote controls as pro¬ 
vided on the AIM65 interject intolerable noise into the recordings. This 
is because the power ground is in common with the signal ground and 
it can be remedied by electrically isolating the power circuit. I use opto- 
isolators and transistors, but the relay method shown on the back page 
of Issue No. 1 is probably better. 

The TEXT EDITOR can also be useful in dealing with these files. For 
example, I’ve prepared a data file of our natural gas usage for the past 
five years. For this, it was convenient to set up a text file in which each 
line was one month’s gas use. After appending an end-of-file flag, this 
file was dumped on tape under the file name GAS by means of the 
editor’s L command. The advantage here is that the file can be proofed 
prior to recording with the help of the T, B, U, D, K, I, and F commands. 

How about sending BASIC output to a serial printer? I’ve found that 
when the KB/TTY switch is in the TTY position, output is routed to the 
serial port. Unfortunately, this also disables the keyboard. One way out 
is to insert the line 

WAIT 43008,08,08 

which stops program execution until the KB/TTY switch is thrown to 
TTY. To restore normal operation, insert 

WAIT 43008,08 

which again halts execution until the switch is returned to KB. Don’t 
forget to set the baud rate parameters. 

I have found the AIM65 to be very educational, as was the case with the 
KIM-1 before it. I use both. I appreciate the support Rockwell is giving 
AIM65 through this newsletter, as well as through peripherals and tech 
notes. 

Earl O. Knutson 
51 Ralph Place 
Morristown, N.J. 07960 



EASY RS232C 


AIM 

(J1) 


RS232 


R. M. Dumse 
Rockwell Int’l 

To meet the RS232C requirements it is necessary to convert the TTL 
levels of the 6500 Series I/O devices on the AIM to RS232C levels. TTL 
levels are defined as values below 0.8V fora logical zero and above 2.4V 
for a logical one, with 0V and 5V being the outside limits. The middle 
region is undefined, meaning a TTL device operating with an input be¬ 
tween 0.8V and 2.4V could interpret it to be either a zero or a one. Its 
output is therefore indeterminate. To have TTL circuits work correctly 
we must make sure that these levels are correct. RS232 levels are differ¬ 
ent. A logical one is defined to be any voltage between — 3V and - 15V, 
a logical zero between + 3V and 4- 15V in the “C" version. The region 
between - 3V and +3V is indeterminate. Note that this is inverted to the 
way we normally think of logic, a one being negative going and a zero 
being positive. 

To communicate across an RS232 interface, the AIM must be able to 
send and receive all RS232 signals at these levels. Although not well doc¬ 
umented, the AIM is already equipped with a receiver that will translate 
RS232 signals to TTL levels. This receiver accepts an input from pin Y 
on the Applications (Jl) Connector. Part of the circuitry used is shared 
with the 20ma current loop receiver. The 20ma current loop transmitter 
can easily be converted to RS232 levels off the board with the circuitry 
detailed below. 

Not yet mentioned is the fact that RS232 devices communicate serially. 
The format is generally selectable with at least one mode that is identical 
to the Teletype format used by the AIM with one start bit and two stop 
bits. We can therefore use the software in the AIM's Monitor to com¬ 
municate when the convertor is added. 



If the device to be connected has a “handshaking" version of the RS232, 
it is necessary to generate handshaking signals that allow continuous 
communication. The circuit shown below uses a scheme of simply 
“wrapping around" any handshaking signals to meet this end. That is, 
when it is set to be a modem, a Request To Send (RTS) is wrapped 
around to the Clear To Send (CTS) line. (Note: To further confuse the 
issue these signals are negative logic. A zero, meaning level between 
+ 3V and + 15 V, is considered the true condition ie: a Request To Send 
is a positive voltage when true.) / 

The circuit shown will work well at speeds in excess of 9600 baud if the 
AIM 65 used has a3.3K ohm resistor in R24. This resistor is labelled on 
the board and can be found behind the printer. Older AIM 65 ’s have a 
IK ohm resistor in that position which will not work. Replacing that re¬ 
sistor with the higher value will correct the problem, but will void the 
AIM's warranty. Refer to section 9. 2. 3. of the AIM 65 USER'S 
GUIDE for direction on initializing and operating the serial interface. 
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